Cine Live 69/Cine Live 69.iso/pc/Data/Interface/e1s.k

Text File | 2003-04-30 | 5.6 KB | 218 lines

module oRoot1 is cBox
with
    Flags is $00000152;
    release Editor:
        IOWindow is {$00000191,$000000AD,$000001DA,$0000029A,$00000000,$00000000,$00000000,$00000000};
        LayoutWindow is {$000000A1,$0000007B,$000002A0,$00000245,$00000000,$00000000,$00000064,$00000000};
    end;
    Name is "Root";
    Enabled is false;

    Width is 800; Height is 600;

    Kind is DrawOpaque;
    Elements is [
        oslide2,
        oslide23,
        oslide34
    ];
    Events is [
        cOnscreenEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is oslide2; end,
                cEnableCommand
                with Flags is $00000004; Target is oslide2; end,
                cFocusCommand
                with Target is oslide2; end,
                cRunCommand
                with Flags is $00000004; Target is oslide2; Rewind is true; end
            ];
        end
    ];
end;

object oslide2 is cImage
with
    Flags is $00000150;
    Name is "slide";
    Enabled is false; Shown is false; Cursor is oEmptyCursor;

    Width is 800; Height is 600;
    Duration is 2; Duration is 2; TimeScale is 1;
    URL is "../../Photos/24%20h%20party%20people/AFF%2024%20Party%20people.jpg";


    Events is [
        cKeyboardEvent
        with Flags is $00000004; Test is IsSpace;
            Commands is [
                cFocusCommand
                with Flags is $00000004; Target is oTargetSelf; end,
                cRunCommand
                with Flags is $00000004; Target is oTargetSelf; Mode is Toggle; end
            ];
        end,
        cMouseUpEvent
        with Flags is $00000004; Flag is true;
            Commands is [
                cRunCommand
                with Flags is $00000004; Target is oTargetSelf; Mode is Clear; Rewind is true; end,
                cEnableCommand
                with Flags is $00000004; Target is oTargetSelf; Mode is Clear; end,
                cShowCommand
                with Flags is $00000004; Target is oTargetSelf; Mode is Clear; end,
                cRunCommand
                with Flags is $00000004; Target is oslide23; Mode is Clear; Rewind is true; end,
                cEnableCommand
                with Flags is $00000004; Target is oslide23; Mode is Clear; end,
                cShowCommand
                with Flags is $00000004; Target is oslide23; Mode is Clear; end,
                cBackCommand
                with Flags is $00000004; end
            ];
        end,
        cFinishedEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is oslide2; Mode is Clear; end,
                cEnableCommand
                with Flags is $00000004; Target is oslide2; Mode is Clear; end,
                cRunCommand
                with Flags is $00000004; Target is oslide2; Mode is Clear; Rewind is true; end,
                cFocusCommand
                with Flags is $00000004; Target is oslide23; end,
                cShowCommand
                with Flags is $00000004; Target is oslide23; end,
                cEnableCommand
                with Flags is $00000004; Target is oslide23; end,
                cRunCommand
                with Flags is $00000004; Target is oslide23; Rewind is true; end
            ];
        end
    ];
end;

object oslide23 is cImage
with
    Name is "slide2";
    Enabled is false; Shown is false; Cursor is oEmptyCursor;

    Width is 800; Height is 600;
    Duration is 2; Duration is 2; TimeScale is 1;
    URL is "../../Photos/24%20h%20party%20people/M%20Winterbottom.jpg";


    Events is [
        cKeyboardEvent
        with Test is IsSpace;
            Commands is [
                cFocusCommand
                with Target is oTargetSelf; end,
                cRunCommand
                with Target is oTargetSelf; Mode is Toggle; end
            ];
        end,
        cMouseUpEvent
        with Flag is true;
            Commands is [
                cEnableCommand
                with Target is oTargetSelf; Mode is Clear; end,
                cShowCommand
                with Target is oTargetSelf; Mode is Clear; end,
                cRunCommand
                with Target is oTargetSelf; Mode is Clear; Rewind is true; end,
                cEnableCommand
                with Target is oslide34; Mode is Clear; end,
                cShowCommand
                with Target is oslide34; Mode is Clear; end,
                cRunCommand
                with Target is oslide34; Mode is Clear; Rewind is true; end,
                cBackCommand
                with end
            ];
        end,
        cFinishedEvent
        with
            Commands is [
                cShowCommand
                with Target is oslide23; Mode is Clear; end,
                cEnableCommand
                with Target is oslide23; Mode is Clear; end,
                cRunCommand
                with Target is oslide23; Mode is Clear; Rewind is true; end,
                cFocusCommand
                with Target is oslide34; end,
                cShowCommand
                with Target is oslide34; end,
                cEnableCommand
                with Target is oslide34; end,
                cRunCommand
                with Target is oslide34; Rewind is true; end
            ];
        end
    ];
end;

object oslide34 is cImage
with
    Name is "slide3";
    Enabled is false; Shown is false; Cursor is oEmptyCursor;

    Width is 800; Height is 600;
    Duration is 2; Duration is 2; TimeScale is 1;
    URL is "../../Photos/24%20h%20party%20people/S%20Coogan.jpg";


    Events is [
        cKeyboardEvent
        with Test is IsSpace;
            Commands is [
                cFocusCommand
                with Target is oTargetSelf; end,
                cRunCommand
                with Target is oTargetSelf; Mode is Toggle; end
            ];
        end,
        cMouseUpEvent
        with Flag is true;
            Commands is [
                cEnableCommand
                with Target is oTargetSelf; Mode is Clear; end,
                cShowCommand
                with Target is oTargetSelf; Mode is Clear; end,
                cRunCommand
                with Target is oTargetSelf; Mode is Clear; Rewind is true; end,
                cEnableCommand
                with Target is oslide2; Mode is Clear; end,
                cShowCommand
                with Target is oslide2; Mode is Clear; end,
                cRunCommand
                with Target is oslide2; Mode is Clear; Rewind is true; end,
                cBackCommand
                with end
            ];
        end,
        cFinishedEvent
        with
            Commands is [
                cShowCommand
                with Target is oslide34; Mode is Clear; end,
                cEnableCommand
                with Target is oslide34; Mode is Clear; end,
                cRunCommand
                with Target is oslide34; Mode is Clear; Rewind is true; end,
                cFocusCommand
                with Target is oslide2; end,
                cShowCommand
                with Target is oslide2; end,
                cEnableCommand
                with Target is oslide2; end,
                cRunCommand
                with Target is oslide2; Rewind is true; end
            ];
        end
    ];
end;